home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 4.1 / Pattern-examples.st < prev    next >
Text File  |  1993-07-24  |  14KB  |  545 lines
  1. "    NAME        Pattern-examples
  2.     AUTHOR        Bernard Horan <bernard@is.morgan.com>
  3.     CONTRIBUTOR    Bernard Horan <bernard@is.morgan.com>
  4.     FUNCTION      Some example patterns
  5.     ST-VERSIONS    4.1
  6.     PREREQUISITES     Image_class-extentFromArray
  7.     CONFLICTS     
  8.     DISTRIBUTION    global
  9.     VERSION        2.0
  10.     DATE        September 1992
  11.     SUMMARY        A change set containing some methods to give examples of Patterns (especially useful to those of you with mono screens since they
  12. can be used as paints). This was adapted from the goodie 'FillPatterns.st' 
  13. provided by parc for VI2.2. BH, 25/9/92"!
  14. 'From Objectworks(r)\Smalltalk, Release 4 of 25 October 1990 on 3 December 1991 at 6:33:50 pm'!
  15.  
  16. !Pattern class methodsFor: 'examples'!
  17.  
  18. example1
  19.     "Colours the active window with the patterns available, one at a 
  20.     time. The name of the pattern is printed on the System Transcript. 
  21.     Each time the user is expected to 
  22.     click a mouse button. BH, 3 December 1991"
  23.     "Pattern example1"
  24.  
  25.     | c gc |
  26.     c := ScheduledControllers activeController.
  27.     gc := c view graphicsContext.
  28.     (self class organization listAtCategoryNamed: 'pattern definitions' asSymbol)
  29.         do: 
  30.             [:i | 
  31.             Transcript show: i asString; cr.
  32.             gc paint: (self perform: i).
  33.             gc displayRectangle: c view bounds.
  34.             c sensor waitClickButton]! !
  35.  
  36. !Pattern class methodsFor: 'pattern definitions'!
  37.  
  38. alternatingShortSlants
  39.     "return this fill pattern"
  40.  
  41. ^(Image
  42.     extent: 16@16
  43.     fromArray: #( 0 32896 16448 8224 0 514 1028 2056 0 32896 16448 8224 0 514 1028 2056)
  44.     offset: 0@0) asPattern!
  45.  
  46. balls
  47.     "return this fill pattern"
  48.  
  49. ^(Image
  50.     extent: 16@16
  51.     fromArray: #( 25186 58339 58339 56797 9766 15934 15934 56797 25186 58339 58339 56797 9766 15934 15934 56797)
  52.     offset: 0@0) asPattern!
  53.  
  54. boldScatter
  55.     "return this fill pattern"
  56.  
  57. ^(Image
  58.     extent: 16@16
  59.     fromArray: #( 1542 24672 27756 36237 33153 6168 55512 50886 1542 24672 27756 36237 33153 6168 55512 50886)
  60.     offset: 0@0) asPattern!
  61.  
  62. bottleGlass
  63.     "return this fill pattern"
  64.  
  65. ^(Image
  66.     extent: 16@16
  67.     fromArray: #( 17476 14649 17476 33410 257 257 257 33410 17476 14649 17476 33410 257 257 257 33410)
  68.     offset: 0@0) asPattern!
  69.  
  70. bricks
  71.     "return this fill pattern"
  72.  
  73. ^(Image
  74.     extent: 16@16
  75.     fromArray: #( 514 514 65535 8224 8224 8224 65535 514 514 514 65535 8224 8224 8224 65535 514)
  76.     offset: 0@0) asPattern!
  77.  
  78. darkHorizontalLineDotZigzag
  79.     "return this fill pattern"
  80.  
  81. ^(Image
  82.     extent: 16@16
  83.     fromArray: #( 32125 61166 65535 43690 65535 61166 55255 48059 32125 61166 65535 43690 65535 61166 55255 48059)
  84.     offset: 0@0) asPattern!
  85.  
  86. darkScatter
  87.     "return this fill pattern"
  88.  
  89. ^(Image
  90.     extent: 16@16
  91.     fromArray: #( 44975 64250 63222 44975 31611 61166 49087 60138 44975 64250 63222 44975 31611 61166 49087 60138)
  92.     offset: 0@0) asPattern!
  93.  
  94. darkVerticalLineDotZigzag
  95.     "return this fill pattern"
  96.  
  97. ^(Image
  98.     extent: 16@16
  99.     fromArray: #( 57311 47802 57311 61166 63479 47802 63479 61166 57311 47802 57311 61166 63479 47802 63479 61166)
  100.     offset: 0@0) asPattern!
  101.  
  102. denseBlackFilledCrosshatch
  103.     "return this fill pattern"
  104.  
  105. ^(Image
  106.     extent: 16@16
  107.     fromArray: #( 50115 15420 15420 15420 15420 50115 50115 50115 50115 15420 15420 15420 15420 50115 50115 50115)
  108.     offset: 0@0) asPattern!
  109.  
  110. denseCrosshatch
  111.     "return this fill pattern"
  112.  
  113. ^(Image
  114.     extent: 16@16
  115.     fromArray: #( 65535 21845 65535 21845 65535 21845 65535 21845 65535 21845 65535 21845 65535 21845 65535 21845)
  116.     offset: 0@0) asPattern!
  117.  
  118. denseDarkDownSlant
  119.     "return this fill pattern"
  120.  
  121. ^(Image
  122.     extent: 16@16
  123.     fromArray: #( 56797 61166 30583 48059 56797 61166 30583 48059 56797 61166 30583 48059 56797 61166 30583 48059)
  124.     offset: 0@0) asPattern!
  125.  
  126. denseDarkUpSlant
  127.     "return this fill pattern"
  128.  
  129. ^(Image
  130.     extent: 16@16
  131.     fromArray: #( 61166 56797 48059 30583 61166 56797 48059 30583 61166 56797 48059 30583 61166 56797 48059 30583)
  132.     offset: 0@0) asPattern!
  133.  
  134. denseDashedDownSlant
  135.     "return this fill pattern"
  136.  
  137. ^(Image
  138.     extent: 16@16
  139.     fromArray: #( 4369 0 17476 8738 4369 0 17476 8738 4369 0 17476 8738 4369 0 17476 8738)
  140.     offset: 0@0) asPattern!
  141.  
  142. denseDashedUpSlant
  143.     "return this fill pattern"
  144.  
  145. ^(Image
  146.     extent: 16@16
  147.     fromArray: #( 17476 34952 4369 0 17476 34952 4369 0 17476 34952 4369 0 17476 34952 4369 0)
  148.     offset: 0@0) asPattern!
  149.  
  150. denseDiagonalCrosshatch
  151.     "return this fill pattern"
  152.  
  153. ^(Image
  154.     extent: 16@16
  155.     fromArray: #( 43690 17476 43690 4369 43690 17476 43690 4369 43690 17476 43690 4369 43690 17476 43690 4369)
  156.     offset: 0@0) asPattern!
  157.  
  158. denseHorizontal
  159.     "return this fill pattern"
  160.  
  161. ^(Image
  162.     extent: 16@16
  163.     fromArray: #( 65535 0 65535 0 65535 0 65535 0 65535 0 65535 0 65535 0 65535 0)
  164.     offset: 0@0) asPattern!
  165.  
  166. denseLightDownSlant
  167.     "return this fill pattern"
  168.  
  169. ^(Image
  170.     extent: 16@16
  171.     fromArray: #( 17476 8738 4369 34952 17476 8738 4369 34952 17476 8738 4369 34952 17476 8738 4369 34952)
  172.     offset: 0@0) asPattern!
  173.  
  174. denseLightUpSlant
  175.     "return this fill pattern"
  176.  
  177. ^(Image
  178.     extent: 16@16
  179.     fromArray: #( 34952 4369 8738 17476 34952 4369 8738 17476 34952 4369 8738 17476 34952 4369 8738 17476)
  180.     offset: 0@0) asPattern!
  181.  
  182. denseMediumDownSlant
  183.     "return this fill pattern"
  184.  
  185. ^(Image
  186.     extent: 16@16
  187.     fromArray: #( 26214 13107 39321 52428 26214 13107 39321 52428 26214 13107 39321 52428 26214 13107 39321 52428)
  188.     offset: 0@0) asPattern!
  189.  
  190. denseMediumUpSlant
  191.     "return this fill pattern"
  192.  
  193. ^(Image
  194.     extent: 16@16
  195.     fromArray: #( 52428 39321 13107 26214 52428 39321 13107 26214 52428 39321 13107 26214 52428 39321 13107 26214)
  196.     offset: 0@0) asPattern!
  197.  
  198. denseVertical
  199.     "return this fill pattern"
  200.  
  201. ^(Image
  202.     extent: 16@16
  203.     fromArray: #( 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845 21845)
  204.     offset: 0@0) asPattern!
  205.  
  206. diagonalWeave
  207.     "return this fill pattern"
  208.  
  209. ^(Image
  210.     extent: 16@16
  211.     fromArray: #( 59367 53199 39321 64764 32382 16191 39321 54227 59367 53199 39321 64764 32382 16191 39321 54227)
  212.     offset: 0@0) asPattern!
  213.  
  214. downSlantShingles
  215.     "return this fill pattern"
  216.  
  217. ^(Image
  218.     extent: 16@16
  219.     fromArray: #( 4112 2056 1028 514 5397 43690 65535 8224 4112 2056 1028 514 5397 43690 65535 8224)
  220.     offset: 0@0) asPattern!
  221.  
  222. horizontalScales
  223.     "return this fill pattern"
  224.  
  225. ^(Image
  226.     extent: 16@16
  227.     fromArray: #( 8224 20560 36751 514 514 1285 63736 8224 8224 20560 36751 514 514 1285 63736 8224)
  228.     offset: 0@0) asPattern!
  229.  
  230. horizontalWeave
  231.     "return this fill pattern"
  232.  
  233. ^(Image
  234.     extent: 16@16
  235.     fromArray: #( 61423 61166 65278 33410 65278 61166 61423 10280 61423 61166 65278 33410 65278 61166 61423 10280)
  236.     offset: 0@0) asPattern!
  237.  
  238. horizontalZigzag
  239.     "return this fill pattern"
  240.  
  241. ^(Image
  242.     extent: 16@16
  243.     fromArray: #( 49344 3084 4626 8481 49344 3084 4626 8481 49344 3084 4626 8481 49344 3084 4626 8481)
  244.     offset: 0@0) asPattern!
  245.  
  246. invertedDarkCrosshatch
  247.     "return this fill pattern"
  248.  
  249. ^(Image
  250.     extent: 16@16
  251.     fromArray: #( 0 21845 0 21845 0 21845 0 21845 0 21845 0 21845 0 21845 0 21845)
  252.     offset: 0@0) asPattern!
  253.  
  254. invertedScales
  255.     "return this fill pattern"
  256.  
  257. ^(Image
  258.     extent: 16@16
  259.     fromArray: #( 8224 8224 43690 1285 514 514 43690 20560 8224 8224 43690 1285 514 514 43690 20560)
  260.     offset: 0@0) asPattern!
  261.  
  262. lightHorizontalLineDotZigzag
  263.     "return this fill pattern"
  264.  
  265. ^(Image
  266.     extent: 16@16
  267.     fromArray: #( 34952 0 43690 0 34952 16705 8738 5140 34952 0 43690 0 34952 16705 8738 5140)
  268.     offset: 0@0) asPattern!
  269.  
  270. lightScatter
  271.     "return this fill pattern"
  272.  
  273. ^(Image
  274.     extent: 16@16
  275.     fromArray: #( 17733 2056 42148 16448 10794 33924 18504 32896 17733 2056 42148 16448 10794 33924 18504 32896)
  276.     offset: 0@0) asPattern!
  277.  
  278. lightVerticalLineDotZigzag
  279.     "return this fill pattern"
  280.  
  281. ^(Image
  282.     extent: 16@16
  283.     fromArray: #( 1028 43176 1028 8738 257 43176 257 8738 1028 43176 1028 8738 257 43176 257 8738)
  284.     offset: 0@0) asPattern!
  285.  
  286. mediumCrosshatch
  287.     "return this fill pattern"
  288.  
  289. ^(Image
  290.     extent: 16@16
  291.     fromArray: #( 65535 4369 4369 4369 65535 4369 4369 4369 65535 4369 4369 4369 65535 4369 4369 4369)
  292.     offset: 0@0) asPattern!
  293.  
  294. plaid
  295.     "return this fill pattern"
  296.  
  297. ^(Image
  298.     extent: 16@16
  299.     fromArray: #( 24415 3341 2827 3341 2827 44975 24415 44975 24415 3341 2827 3341 2827 44975 24415 44975)
  300.     offset: 0@0) asPattern!
  301.  
  302. plainScatter
  303.     "return this fill pattern"
  304.  
  305. ^(Image
  306.     extent: 16@16
  307.     fromArray: #( 8224 257 2056 16448 1028 32896 4112 514 8224 257 2056 16448 1028 32896 4112 514)
  308.     offset: 0@0) asPattern!
  309.  
  310. recursiveY
  311.     "return this fill pattern"
  312.  
  313. ^(Image
  314.     extent: 16@16
  315.     fromArray: #( 514 8224 20560 34952 34952 34952 34952 1285 514 8224 20560 34952 34952 34952 34952 1285)
  316.     offset: 0@0) asPattern!
  317.  
  318. scatter
  319.     "return this fill pattern"
  320.  
  321. ^(Image
  322.     extent: 16@16
  323.     fromArray: #( 4369 42148 19018 34952 9509 18504 41891 17476 4369 42148 19018 34952 9509 18504 41891 17476)
  324.     offset: 0@0) asPattern!
  325.  
  326. shadowScreen
  327.     "return this fill pattern"
  328.  
  329. ^(Image
  330.     extent: 16@16
  331.     fromArray: #( 5654 63479 0 63479 63479 5654 5654 5654 5654 63479 0 63479 63479 5654 5654 5654)
  332.     offset: 0@0) asPattern!
  333.  
  334. slantedBricks
  335.     "return this fill pattern"
  336.  
  337. ^(Image
  338.     extent: 16@16
  339.     fromArray: #( 33667 17476 14392 4112 8224 16448 32896 257 33667 17476 14392 4112 8224 16448 32896 257)
  340.     offset: 0@0) asPattern!
  341.  
  342. slantedScales
  343.     "return this fill pattern"
  344.  
  345. ^(Image
  346.     extent: 16@16
  347.     fromArray: #( 37008 24672 6168 1028 514 514 1542 2313 37008 24672 6168 1028 514 514 1542 2313)
  348.     offset: 0@0) asPattern!
  349.  
  350. sparseBlackFilledDiagonalCrosshatch
  351.     "return this fill pattern"
  352.  
  353. ^(Image
  354.     extent: 16@16
  355.     fromArray: #( 31868 65278 31868 14392 4112 0 4112 14392 31868 65278 31868 14392 4112 0 4112 14392)
  356.     offset: 0@0) asPattern!
  357.  
  358. sparseCrossHatch
  359.     "return this fill pattern"
  360.  
  361. ^(Image
  362.     extent: 16@16
  363.     fromArray: #( 1028 1028 1028 1028 1028 1028 1028 65535 1028 1028 1028 1028 1028 1028 1028 65535)
  364.     offset: 0@0) asPattern!
  365.  
  366. sparseDarkDownSlant
  367.     "return this fill pattern"
  368.  
  369. ^(Image
  370.     extent: 16@16
  371.     fromArray: #( 57568 28784 14392 7196 3598 1799 33667 49601 57568 28784 14392 7196 3598 1799 33667 49601)
  372.     offset: 0@0) asPattern!
  373.  
  374. sparseDarkUpSlant
  375.     "return this fill pattern"
  376.  
  377. ^ (Image
  378.     extent: 16@16
  379.     fromArray: #( 57568 49601 33667 1799 3598 7196 14392 28784 57568 49601 33667 1799 3598 7196 14392 28784)
  380.     offset: 0@0) asPattern!
  381.  
  382. sparseDashedHorizontal
  383.     "return this fill pattern"
  384.  
  385. ^(Image
  386.     extent: 16@16
  387.     fromArray: #( 26214 0 0 0 39321 0 0 0 26214 0 0 0 39321 0 0 0)
  388.     offset: 0@0) asPattern!
  389.  
  390. sparseDashedVertical
  391.     "return this fill pattern"
  392.  
  393. ^(Image
  394.     extent: 16@16
  395.     fromArray: #( 257 4112 4112 257 257 4112 4112 257 257 4112 4112 257 257 4112 4112 257)
  396.     offset: 0@0) asPattern!
  397.  
  398. sparseDiagonalCrosshatch
  399.     "return this fill pattern"
  400.  
  401. ^(Image
  402.     extent: 16@16
  403.     fromArray: #( 20560 34952 1285 514 1285 34952 20560 8224 20560 34952 1285 514 1285 34952 20560 8224)
  404.     offset: 0@0) asPattern!
  405.  
  406. sparseGrayFilledDiagonalCrosshatch
  407.     "return this fill pattern"
  408.  
  409. ^(Image
  410.     extent: 16@16
  411.     fromArray: #( 16705 32896 0 32896 16705 41634 21845 41634 16705 32896 0 32896 16705 41634 21845 41634)
  412.     offset: 0@0) asPattern!
  413.  
  414. sparseHorizontal
  415.     "return this fill pattern"
  416.  
  417. ^(Image
  418.     extent: 16@16
  419.     fromArray: #( 65535 0 0 0 65535 0 0 0 65535 0 0 0 65535 0 0 0)
  420.     offset: 0@0) asPattern!
  421.  
  422. sparseLightDownSlant
  423.     "return this fill pattern"
  424.  
  425. ^(Image
  426.     extent: 16@16
  427.     fromArray: #( 2056 1028 514 257 32896 16448 8224 4112 2056 1028 514 257 32896 16448 8224 4112)
  428.     offset: 0@0) asPattern!
  429.  
  430. sparseLightUpSlant
  431.     "return this fill pattern"
  432.  
  433. ^(Image
  434.     extent: 16@16
  435.     fromArray: #( 257 514 1028 2056 4112 8224 16448 32896 257 514 1028 2056 4112 8224 16448 32896)
  436.     offset: 0@0) asPattern!
  437.  
  438. sparseVertical
  439.     "return this fill pattern"
  440.  
  441. ^(Image
  442.     extent: 16@16
  443.     fromArray: #( 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369 4369)
  444.     offset: 0@0) asPattern!
  445.  
  446. triangles
  447.     "return this fill pattern"
  448.  
  449. ^(Image
  450.     extent: 16@16
  451.     fromArray: #( 0 16448 41120 0 0 1028 2570 0 0 16448 41120 0 0 1028 2570 0)
  452.     offset: 0@0) asPattern!
  453.  
  454. upSlantShingles
  455.     "return this fill pattern"
  456.  
  457. ^ (Image
  458.     extent: 16@16
  459.     fromArray: #( 32896 257 514 17733 43690 65535 8224 16448 32896 257 514 17733 43690 65535 8224 16448)
  460.     offset: 0@0) asPattern!
  461.  
  462. verticalShingles
  463.     "return this fill pattern"
  464.  
  465. ^(Image
  466.     extent: 16@16
  467.     fromArray: #( 1028 42148 21845 43690 1028 1028 1028 1028 1028 42148 21845 43690 1028 1028 1028 1028)
  468.     offset: 0@0) asPattern!
  469.  
  470. verticalZigzag
  471.     "return this fill pattern"
  472.  
  473. ^(Image
  474.     extent: 16@16
  475.     fromArray: #( 4369 8738 8738 4369 34952 17476 17476 34952 4369 8738 8738 4369 34952 17476 17476 34952)
  476.     offset: 0@0) asPattern!
  477.  
  478. veryDarkScatter
  479.     "return this fill pattern"
  480.  
  481. ^(Image
  482.     extent: 16@16
  483.     fromArray: #( 61423 31611 65535 57054 63479 32639 57311 65021 61423 31611 65535 57054 63479 32639 57311 65021)
  484.     offset: 0@0) asPattern!
  485.  
  486. veryLightScatter
  487.     "return this fill pattern"
  488.  
  489. ^ (Image
  490.     extent: 16@16
  491.     fromArray: #( 0 2313 16448 1028 257 4112 32896 9252 0 2313 16448 1028 257 4112 32896 9252)
  492.     offset: 0@0) asPattern!
  493.  
  494. veryVeryLightGrayDiagonal
  495.     "return this fill pattern"
  496.  
  497. ^(Image
  498.     extent: 16@16
  499.     fromArray: #( 0 16448 0 0 0 1028 0 0 0 16448 0 0 0 1028 0 0)
  500.     offset: 0@0) asPattern!
  501.  
  502. veryVeryLightGrayHorizontal
  503.     "return this fill pattern"
  504.  
  505. ^(Image
  506.     extent: 16@16
  507.     fromArray: #( 0 0 0 4112 0 0 0 0 0 0 0 4112 0 0 0 0)
  508.     offset: 0@0) asPattern!
  509.  
  510. veryVeryLightScatter
  511.     "return this fill pattern"
  512.  
  513. ^(Image
  514.     extent: 16@16
  515.     fromArray: #( 32896 2056 0 0 8224 514 0 0 32896 2056 0 0 8224 514 0 0)
  516.     offset: 0@0) asPattern!
  517.  
  518. veryWideDiagonalWeave
  519.     "return this fill pattern"
  520.  
  521. ^(Image
  522.     extent: 16@16
  523.     fromArray: #( 8738 16705 57568 20560 34952 1285 3598 5140 8738 16705 57568 20560 34952 1285 3598 5140)
  524.     offset: 0@0) asPattern!
  525.  
  526. wideDiagonalWeave
  527.     "return this fill pattern"
  528.  
  529. ^(Image
  530.     extent: 16@16
  531.     fromArray: #( 34952 23644 15934 7453 34952 53713 58339 50629 34952 23644 15934 7453 34952 53713 58339 50629)
  532.     offset: 0@0) asPattern!
  533.  
  534. wideHorizontalWeave
  535.     "return this fill pattern"
  536.  
  537. ^(Image
  538.     extent: 16@16
  539.     fromArray: #( 16191 8481 8481 16191 62451 4626 4626 62451 16191 8481 8481 16191 62451 4626 4626 62451)
  540.     offset: 0@0) asPattern! !
  541.  
  542.  
  543.  
  544.  
  545.